home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue28 / calcomp / CALCOMP.ZIP / CBUILDER.ZIP / CALCOMP.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-09-12  |  6.9 KB  |  178 lines
  1. //----------------------------------------------------------------------------
  2. // CalComp.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: CalComp.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef CalCompHPP
  6. #define CalCompHPP
  7. //----------------------------------------------------------------------------
  8. #include <Moneycal.hpp>
  9. #include <Dialogs.hpp>
  10. #include <Forms.hpp>
  11. #include <Controls.hpp>
  12. #include <Graphics.hpp>
  13. #include <Classes.hpp>
  14. #include <Messages.hpp>
  15. #include <Windows.hpp>
  16. #include <SysUtils.hpp>
  17. #include <System.hpp>
  18. namespace Calcomp
  19. {
  20. //-- type declarations -------------------------------------------------------
  21. enum TShowMethod { smTop, smBottom, smDependent };
  22.  
  23. enum TStartDay { sdSunday, sdMonday, sdTuesday, sdWednesday, sdThursday, sdFriday, sdSaturday };
  24.  
  25. class __declspec(delphiclass) TYearStartAt;
  26. class __declspec(pascalimplementation) TYearStartAt : public Classes::TPersistent
  27. {
  28.     typedef Classes::TPersistent inherited;
  29.     
  30. private:
  31.     int FStartDay;
  32.     int FStartMonth;
  33.     void __fastcall SetStartDay(int d);
  34.     void __fastcall SetStartMonth(int m);
  35.     
  36. public:
  37.     __fastcall TYearStartAt(void);
  38.     __fastcall virtual ~TYearStartAt(void);
  39.     
  40. __published:
  41.     __property int StartDay = {read=FStartDay, write=SetStartDay, nodefault};
  42.     __property int StartMonth = {read=FStartMonth, write=SetStartMonth, nodefault};
  43. };
  44.  
  45. class __declspec(delphiclass) TNameofDays;
  46. class __declspec(pascalimplementation) TNameofDays : public Classes::TPersistent
  47. {
  48.     typedef Classes::TPersistent inherited;
  49.     
  50. private:
  51.     Moneycal::TDayStr FMonday;
  52.     Moneycal::TDayStr FTuesday;
  53.     Moneycal::TDayStr FWednesday;
  54.     Moneycal::TDayStr FThursday;
  55.     Moneycal::TDayStr FFriday;
  56.     Moneycal::TDayStr FSaturday;
  57.     Moneycal::TDayStr FSunday;
  58.     
  59. public:
  60.     __fastcall TNameofDays(void);
  61.     __fastcall virtual ~TNameofDays(void);
  62.     
  63. __published:
  64.     __property Moneycal::TDayStr Monday = {read=FMonday, write=FMonday, nodefault};
  65.     __property Moneycal::TDayStr Tuesday = {read=FTuesday, write=FTuesday, nodefault};
  66.     __property Moneycal::TDayStr Wednesday = {read=FWednesday, write=FWednesday, nodefault};
  67.     __property Moneycal::TDayStr Thursday = {read=FThursday, write=FThursday, nodefault};
  68.     __property Moneycal::TDayStr Friday = {read=FFriday, write=FFriday, nodefault};
  69.     __property Moneycal::TDayStr Saturday = {read=FSaturday, write=FSaturday, nodefault};
  70.     __property Moneycal::TDayStr Sunday = {read=FSunday, write=FSunday, nodefault};
  71. };
  72.  
  73. class __declspec(delphiclass) TNameofMonths;
  74. class __declspec(pascalimplementation) TNameofMonths : public Classes::TPersistent
  75. {
  76.     typedef Classes::TPersistent inherited;
  77.     
  78. private:
  79.     Moneycal::TMonthStr FJanuary;
  80.     Moneycal::TMonthStr FFebruary;
  81.     Moneycal::TMonthStr FMarch;
  82.     Moneycal::TMonthStr FApril;
  83.     Moneycal::TMonthStr FMay;
  84.     Moneycal::TMonthStr FJune;
  85.     Moneycal::TMonthStr FJuly;
  86.     Moneycal::TMonthStr FAugust;
  87.     Moneycal::TMonthStr FSeptember;
  88.     Moneycal::TMonthStr FOctober;
  89.     Moneycal::TMonthStr FNovember;
  90.     Moneycal::TMonthStr FDecember;
  91.     
  92. public:
  93.     __fastcall TNameofMonths(void);
  94.     __fastcall virtual ~TNameofMonths(void);
  95.     
  96. __published:
  97.     __property Moneycal::TMonthStr January = {read=FJanuary, write=FJanuary, nodefault};
  98.     __property Moneycal::TMonthStr February = {read=FFebruary, write=FFebruary, nodefault};
  99.     __property Moneycal::TMonthStr March = {read=FMarch, write=FMarch, nodefault};
  100.     __property Moneycal::TMonthStr April = {read=FApril, write=FApril, nodefault};
  101.     __property Moneycal::TMonthStr May = {read=FMay, write=FMay, nodefault};
  102.     __property Moneycal::TMonthStr June = {read=FJune, write=FJune, nodefault};
  103.     __property Moneycal::TMonthStr July = {read=FJuly, write=FJuly, nodefault};
  104.     __property Moneycal::TMonthStr August = {read=FAugust, write=FAugust, nodefault};
  105.     __property Moneycal::TMonthStr September = {read=FSeptember, write=FSeptember, nodefault};
  106.     __property Moneycal::TMonthStr October = {read=FOctober, write=FOctober, nodefault};
  107.     __property Moneycal::TMonthStr November = {read=FNovember, write=FNovember, nodefault};
  108.     __property Moneycal::TMonthStr December = {read=FDecember, write=FDecember, nodefault};
  109. };
  110.  
  111. class __declspec(delphiclass) TCalComp;
  112. class __declspec(pascalimplementation) TCalComp : public Classes::TComponent
  113. {
  114.     typedef Classes::TComponent inherited;
  115.     
  116. private:
  117.     Moneycal::TCalForm* CalForm;
  118.     Word FDay;
  119.     Word FMonth;
  120.     Word FYear;
  121.     Word FTop;
  122.     Word FLeft;
  123.     Controls::TWinControl* FAlignControl;
  124.     TShowMethod FShowMethod;
  125.     Graphics::TColor FColor;
  126.     Graphics::TColor FTextColor;
  127.     Graphics::TColor FSelectColor;
  128.     Graphics::TColor FInversColor;
  129.     Graphics::TColor FWeekendColor;
  130.     TNameofDays* FNameofDays;
  131.     TNameofMonths* FNameofMonths;
  132.     bool FShowWeeks;
  133.     TStartDay FFirstday;
  134.     TYearStartAt* FYearStartAt;
  135.     void __fastcall SetAlignControl(Controls::TWinControl* aControl);
  136.     Word __fastcall GetWeek(void);
  137.     
  138. protected:
  139.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  140.         );
  141.     
  142. public:
  143.     __fastcall virtual TCalComp(Classes::TComponent* AOwner);
  144.     __fastcall virtual ~TCalComp(void);
  145.     bool __fastcall Execute(void);
  146.     __property Word Week = {read=GetWeek, nodefault};
  147.     
  148. __published:
  149.     __property Word Day = {read=FDay, write=FDay, default=1};
  150.     __property Word Month = {read=FMonth, write=FMonth, default=1};
  151.     __property Word Year = {read=FYear, write=FYear, default=1};
  152.     __property Word Top = {read=FTop, write=FTop, nodefault};
  153.     __property Word Left = {read=FLeft, write=FLeft, nodefault};
  154.     __property Graphics::TColor Color = {read=FColor, write=FColor, nodefault};
  155.     __property Graphics::TColor TextColor = {read=FTextColor, write=FTextColor, nodefault};
  156.     __property Graphics::TColor SelectColor = {read=FSelectColor, write=FSelectColor, nodefault};
  157.     __property Graphics::TColor InversColor = {read=FInversColor, write=FInversColor, nodefault};
  158.     __property Graphics::TColor WeekendColor = {read=FWeekendColor, write=FWeekendColor, nodefault};
  159.     __property Controls::TWinControl* AlignControl = {read=FAlignControl, write=SetAlignControl, nodefault
  160.         };
  161.     __property TShowMethod ShowMethod = {read=FShowMethod, write=FShowMethod, nodefault};
  162.     __property TNameofDays* NameofDays = {read=FNameofDays, write=FNameofDays, nodefault};
  163.     __property TNameofMonths* NameofMonths = {read=FNameofMonths, write=FNameofMonths, nodefault};
  164.     __property bool ShowWeeks = {read=FShowWeeks, write=FShowWeeks, nodefault};
  165.     __property TStartDay Firstday = {read=FFirstday, write=FFirstday, nodefault};
  166.     __property TYearStartAt* YearStartAt = {read=FYearStartAt, write=FYearStartAt, nodefault};
  167. };
  168.  
  169. //-- var, const, procedure ---------------------------------------------------
  170. extern void __fastcall Register(void);
  171.  
  172. }    /* namespace Calcomp */
  173. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  174. using namespace Calcomp;
  175. #endif
  176. //-- end unit ----------------------------------------------------------------
  177. #endif    // CalComp
  178.